GETERM.NEW[1,JRA] - www.SailDart.org

perm filename GETERM.NEW[1,JRA] blob sn#024540 filedate 1973-02-07 generic text, type T, neo UTF8

00100	(DE GETTERMS NIL
00200	(PROG(Z Z1)
00300	(SCANSET)(START)(SETQ Z(ERRSET(<TM>) T))
00400	(SCANRESET)
00500	(COND((OR(NULL Z)(NULL(CAR Z)))(RETURN NIL)))
00600	(SETQ XYZ (TOP))
00700	(COND((NOT(EQ(READ)@FOR))(RETURN NIL)))
00800	(SCANSET)(START)(SETQ Z(ERRSET(<TM>) T))
00900	(SCANRESET)
01000	(COND((OR(NULL Z)(NULL(CAR Z)))(RETURN NIL)))
01100	(SETQ XYZ1(TOP))
01200	(COND((NOT(EQ(READ)@IN))(RETURN NIL)))
01300	(RETURN(UPGETL E NAMELIST)) ))